home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest88 / muledna.red < prev    next >
Text File  |  1989-08-03  |  2KB  |  55 lines

  1. ;  NOTE:  This is a shortened version of Mule DNA, one of the '88
  2. ;    finalists.  The complete version can be found in DMDMULE.RED.
  3.  
  4. ;Mule DNA
  5. ;by Douglas McDaniels
  6. ;United States of America
  7. ;
  8. VA            DAT                    1588
  9. VB            DAT                    1337
  10. VC            DAT                    123
  11. GOTCHA        SPL                    GOTCHA
  12. START         SPL                    17
  13. SKIPA         CMP   <  VA         <  VB
  14.               MOV      GOTCHA     @  VA
  15.               CMP   <  VA         <  VB
  16.               MOV      GOTCHA     @  VB
  17.               DJN      SKIPA         VC
  18. SKIPC         MOV   #  1589          VA
  19.               MOV   #  168           VC
  20. SKIPB         MOV      VA         <  VA
  21.               MOV      VA         <  VA
  22.               MOV      VA         <  VA
  23.               DJN      SKIPB         VC
  24.               JMP      SKIPC
  25.  
  26. #SET  COPY    1
  27. #SET  ONE     1588
  28. #SET  TWO     1337
  29. #REPEAT       63
  30. #SET  ONE     ONE+86
  31. #SET  TWO     TWO+86
  32.  
  33.               DAT                    ONE    ; 1674
  34.               DAT                    TWO    ; 1423
  35.               DAT                    123
  36.               SPL                    0
  37.               SPL                    17
  38.               CMP   < -5          < -4
  39.               MOV     -3          @ -6
  40.               CMP   < -7          < -6
  41.               MOV     -5          @ -7
  42.               DJN     -4            -7
  43.               MOV   #  ONE+1        -10     ; 1675
  44.               MOV   #  168          -9
  45.               MOV     -12         < -12
  46.               MOV     -13         < -13
  47.               MOV     -14         < -14
  48.               DJN     -3            -13
  49.               JMP     -6
  50.  
  51. #END
  52.  
  53.               END      START
  54.  
  55.